home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1998 #2 / Amiga Plus CD - 1998 - No. 2.iso / pd / musik / eagleplayer2.00 / rexx / ep_prevmodule.dopus < prev    next >
Text File  |  1997-08-05  |  642b  |  36 lines
  1. /* Eagleplayer control for DOPUS 4
  2.    (c) 1993-97 DEFECT Softworks
  3.    switches to previous module in current list/directory/archive
  4.  
  5.    ------------------------------------------------------------------------
  6.    Call as:
  7.    - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  8.    [ARexx]  Eagleplayer2:Rexx/EP_PrevModule.dopus {p}
  9.  
  10.    Flags:   none required
  11.  
  12. */
  13. parse arg opusport
  14.  
  15. options results
  16.  
  17. if pos('rexx_EP',SHOW('Ports')) = 0 then do
  18.  
  19.  address value opusport
  20.  
  21.  toptext 'Eagleplayer-Port not found'
  22.  
  23.  exit 0
  24.  
  25.  end
  26.  
  27. address 'rexx_EP'
  28.  
  29. PrevModule
  30. aha=result
  31.  
  32. address value opusport
  33. toptext 'Eagleplayer: '||aha
  34.  
  35. exit
  36.